home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_011_19xx_-_de_Side_B.d64 / packer v2.2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 0 x=40:rem if you 1-mhz-diskdrive hangedup x must be 90 (normal40)
  2. 2 ifn=0thenopen1,8,15,"m-w"+chr$(x)
  3. 4 ifn=0thenprint#1,"m-w"chr$(106)+chr$(0)+chr$(1)+chr$(200):close1
  4. 6 ifn=0thenn=1:load"c100 c540",8,1
  5. 8 sys49920:poke53272,20
  6. 10 poke53280,0:poke53281,0:print"[155][147][156]freeware 1993 by marek roth. main menu:[155]"
  7. 12 fori=0to28:poke54272+i,0:next
  8. 20 dima$(2,25)
  9. 30 reada$(0,a):reada$(1,a):reada$(2,a):a=a+1:ifa$(0,a-1)<>"quit"then30
  10. 40 fori=0toa-1:print"[155]";:ifi=peek(53245)-1thenprint"";:l=i
  11. 45 ifpeek(53247)>0then70
  12. 50 printspc(20-len(a$(0,i))/2);a$(0,i):next
  13. 60 print"[158]programs with _ can you run from basic!
  14. 70 [158]49795
  15. 80 [139][194](53247)[178]0[167][153]"":[137]40
  16. 100 [158]49792:[139]a$(0,l)[178]"quit"[167][158]64738
  17. 110 [159]1,8,7,""[170]a$(1,l)[170]"":[161]#1,z$:mt[178]st:[160]1:[139]mt[178]0[167]180
  18. 120 [153]"load       insert "a$(2,l)" v2.1!
  19. 130 open1,8,15,"m-r"+chr$(28)+chr$(0)+chr$(1):get#1,z$:close1
  20. 140 ifz$=""then130
  21. 150 fori=0to2000:next
  22. 160 open1,8,15,"i":input#1,a:close1:ifa>0then150
  23. 170 goto110
  24. 180 restore:sys49856
  25. 200 poke646,peek(53280)
  26. 210 print"[147]l[207]"chr$(34);a$(1,l);chr$(34)",8
  27. 220 [153]"r(NULL)
  28. 230 poke198,2:poke631,13:poke632,13:end
  29. 1000 data"load construction kit_","de luxe kit v2*","construction kit"
  30. 1010 data"edit title where you select caves","titeleditor v2*,s","levelpacker"
  31. 1020 data"creat cavepacks","cavepacker v2*,s","levelpacker"
  32. 1030 data"write intro screen","introscreen*,s","levelpacker"
  33. 1040 data"make boulder dash game","lastpacker v2*,s","levelpacker"
  34. 1050 data"select language of construction kit_","select l. v2.2"
  35. 1052 data"construction kit"
  36. 1070 data"restart kit with old level_","old cave v2*","construction kit"
  37. 9990 data"quit"," "," "
  38.